home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / CLPMOUSE.ARJ / DEMO1.PRG < prev    next >
Text File  |  1991-06-17  |  555b  |  25 lines

  1. clear screen
  2. ms_on(0)
  3. for x = 1 to 2
  4.    done = .f.
  5.    do while .not. done
  6.       xxx = inkey()
  7.       if xxx <> 0
  8.          done = .t.
  9.       endif
  10.       @ 5,10 say "MOUSE STATUS"
  11.       @ 6,10 say "------------"
  12.       @ 7,10 say "Row Pos - "+str(ms_ypos())
  13.       @ 8,10 say "Col Pos - "+str(ms_xpos())
  14.       @ 9,10 say "Row Pix - "+str(ms_yppos())
  15.       @ 10,10 say "Col Pix - "+str(ms_xppos())
  16.       @ 11,10 say "But Pos - "+str(ms_bpos())
  17.    enddo
  18.    setmode(43,80)
  19.    ms_off()
  20.    ms_on(1)
  21. next
  22. ms_off()
  23. setmode(25,80)
  24. return   
  25.